home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXPATTER.PRG < prev    next >
Text File  |  1991-07-22  |  918b  |  31 lines

  1. *:*********************************************************************
  2. *:
  3. *: Procedure file: TXPATTERNBAR.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12. txreset()
  13.  
  14. txpatternbar(01, 10, 20, 15, 1, .T.)
  15. txcolprint(17, 12, .F., "Fill Pattern 1")
  16. txpatternbar(01, 50, 20, 15, 2, .T.)
  17. txcolprint(17, 52, .F., "Fill Pattern 2")
  18. txpatternbar(21, 10, 20, 15, 3, .T.)
  19. txcolprint(37, 12, .F., "Fill Pattern 3")
  20. txpatternbar(21, 50, 20, 15, 4, .T.)
  21. txcolprint(37, 52, .F., "Fill Pattern 4")
  22. txpatternbar(41, 10, 20, 15, 5, .T.)
  23. txcolprint(57, 12, .F., "Fill Pattern 5")
  24. txpatternbar(41, 50, 20, 15, 6, .T.)
  25. txcolprint(57, 52, .F., "Fill Pattern 6")
  26.  
  27. txclear()
  28.  
  29.  
  30. *: EOF: TXPATTERNBAR.PRG
  31.